0 REM << RR43-3 >>
1 REM =================================
2 PRINT"[147]    [207]PTICAL [207]SCILLATOR"
3 REM      RUPERT REPORT #43
4 REM  -------C64 AND C128------
5 REM > DRIVE LED FROM MOTOR OUTPUT
6 REM (PIN C-3) OF CASSETTE PORT.
7 REM > READ CADMIUM SULPHIDE PHOTOCELL
8 REM FROM BUTTON A INPUT (PIN 6) OF
9 REM JOYSTICK CONTROL PORT 2.
10 REM =================================
20 POKE 0,PEEK(0) OR 2^4    :REM SET DDR SO BIT 4 OF ADDRESS 1 IS AN OUTPUT.
30 POKE 1,PEEK(1) AND NOT 2^4 :REM CLEAR BIT 4 OF ADDRESS 1
40 POKE 192,1:REM SET $192 TO KEEP MOTOR OFF
50 L1=PEEK(1) AND NOT 2^5 :REM LED ON
60 L0=PEEK(1) OR 2^5      :REM LED OFF
70 IF (PEEK(56320) AND 16)=16 THEN POKE 1,L1 :PRINT "ON",
80 IF (PEEK(56320) AND 16)= 0 THEN POKE 1,L0 :PRINT "OFF",
90 GOTO 70